home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / qrad9.src < prev    next >
Text File  |  1994-01-04  |  303b  |  13 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ QRAD, converts real number to Quotient of RADicals, by Joe Horn
  3. @ Calls the SSQR program (also on this disk)
  4. \<< \->NUM RCLF SWAP SQ 10 FIX \->Q
  5.   IF DUP TYPE
  6.   THEN OBJ\-> DROP2 SSQR SWAP SSQR SWAP /
  7.   ELSE SSQR
  8.   END
  9.   IF DUP TYPE NOT
  10.   THEN \->Q
  11.   END SWAP STOF
  12. \>>
  13.